Total Animated Gifs/Total Animated Gifs.iso/Utilities/buttons/javascriptbuttons3/jsb3_.exe/js3b.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-07-27 | 20.8 KB | 733 lines

object Form1: TForm1
  Left = 114
  Top = 99
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'JavaScript Buttons III   version 1.0'
  ClientHeight = 425
  ClientWidth = 580
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 480
    Top = 312
    Width = 97
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Button Count :'
  end
  object Label2: TLabel
    Left = 480
    Top = 272
    Width = 97
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Button Items :'
  end
  object Image1: TImage
    Left = 432
    Top = 352
    Width = 145
    Height = 33
    Cursor = crHandPoint
    AutoSize = True
    Picture.Data = {<image000.gif>}
    OnClick = BitBtn7Click
  end
  object Label3: TLabel
    Left = 232
    Top = 330
    Width = 69
    Height = 13
    Caption = 'Target Frame :'
  end
  object Label4: TLabel
    Left = 232
    Top = 293
    Width = 62
    Height = 13
    Caption = 'Image for the'
  end
  object Label5: TLabel
    Left = 192
    Top = 304
    Width = 102
    Height = 13
    Caption = 'normal second button'
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 185
    Height = 345
    Caption = ' Files '
    TabOrder = 0
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 16
      Width = 169
      Height = 19
      Cursor = crHandPoint
      DirList = DirectoryListBox1
      TabOrder = 0
      TextCase = tcUpperCase
      OnChange = DriveComboBox1Change
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 40
      Width = 169
      Height = 97
      Cursor = crHandPoint
      FileList = FileListBox1
      ItemHeight = 16
      TabOrder = 1
      OnChange = DirectoryListBox1Change
    end
    object FileListBox1: TFileListBox
      Left = 8
      Top = 144
      Width = 169
      Height = 193
      Cursor = crHandPoint
      Hint = 'Click a file to add it to the list...'
      ItemHeight = 16
      Mask = '*.jpg;*.gif;*.htm;*.html'
      MultiSelect = True
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowGlyphs = True
      ShowHint = True
      TabOrder = 2
      OnClick = FileListBox1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 192
    Top = 0
    Width = 281
    Height = 289
    Caption = ' List '
    TabOrder = 1
    object ListBox1: TListBox
      Left = 8
      Top = 16
      Width = 265
      Height = 265
      Cursor = crHandPoint
      Hint = 'Right Click to display a pop-up menu'
      Font.Charset = GREEK_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 15
      MultiSelect = True
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu2
      ShowHint = True
      TabOrder = 0
      OnClick = ListBox1Click
    end
  end
  object BitBtn1: TBitBtn
    Left = 480
    Top = 8
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Generate source code'
    Caption = '&Generate'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 480
    Top = 40
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Save the buttons in a text file'
    Caption = '&Save'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
      007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
      7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
      99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 480
    Top = 72
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Test the buttons into your default html browser'
    Caption = '&Test'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
      FFF07F3FF3FF3FFF3FF70F00F00F000F00F07F773773777377370FFFFFFFFFFF
      FFF07F3FF3FF33FFFFF70F00F00FF00000F07F773773377777F70FEEEEEFF0F9
      FCF07F33333337F7F7F70FFFFFFFF0F9FCF07F3FFFF337F737F70F0000FFF0FF
      FCF07F7777F337F337370F0000FFF0FFFFF07F777733373333370FFFFFFFFFFF
      FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
      C880733777777777733700000000000000007777777777777777333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 480
    Top = 168
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Read me!!!!!!!!!!!!!!!!!'
    Caption = '&Help'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = BitBtn4Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
      33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
      FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
      FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
      FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
      FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
      FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
      3333333773FFFF77333333333FBFBF3333333333377777333333}
    NumGlyphs = 2
  end
  object BitBtn5: TBitBtn
    Left = 480
    Top = 240
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Quit this program...'
    Caption = '&Quit'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = BitBtn5Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
      0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
      0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
      0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
      0333337F777FFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
  end
  object StaticText1: TStaticText
    Left = 480
    Top = 287
    Width = 97
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BorderStyle = sbsSunken
    TabOrder = 7
  end
  object BitBtn6: TBitBtn
    Left = 480
    Top = 136
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Change the order of the items...'
    Caption = '&Change Order'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = BitBtn6Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333FF33333333FF333993333333300033377F3333333777333993333333
      300033F77FFF3333377739999993333333333777777F3333333F399999933333
      33003777777333333377333993333333330033377F3333333377333993333333
      3333333773333333333F333333333333330033333333F33333773333333C3333
      330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
      993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
      333333333337733333FF3333333C333330003333333733333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn7: TBitBtn
    Left = 480
    Top = 200
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'About the author...'
    Caption = '&About'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = BitBtn7Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
      333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
      C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
      F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
      F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
      00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
      3333333373FF7333333333333000333333333333377733333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object StaticText2: TStaticText
    Left = 479
    Top = 327
    Width = 98
    Height = 17
    Alignment = taCenter
    AutoSize = False
    BorderStyle = sbsSunken
    TabOrder = 10
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 346
    Width = 425
    Height = 37
    Caption = ' File Options '
    TabOrder = 11
    object RadioButton1: TRadioButton
      Left = 8
      Top = 16
      Width = 153
      Height = 17
      Caption = 'Convert files to Uppercase'
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 160
      Top = 16
      Width = 145
      Height = 17
      Caption = 'Convert files to Lowercase'
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 312
      Top = 16
      Width = 105
      Height = 17
      Caption = 'Leave files as is...'
      Checked = True
      TabOrder = 2
      TabStop = True
      OnClick = RadioButton3Click
    end
  end
  object BitBtn8: TBitBtn
    Left = 480
    Top = 104
    Width = 97
    Height = 25
    Cursor = crHandPoint
    Hint = 'Syntax Check'
    Caption = 'S&yntax Check'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 12
    OnClick = BitBtn8Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333333333333333333FF33333333FF3330033333333
      00333377FF33333377FF300003333330000337777FFFFFF7777F000000000000
      000077777777777777770F88FFFF8FFF88F07F333F33333333370FFF9FFF8FFF
      FF707F337FF333FFFFF70FF999FF800000037F377733377777730FFF9FFF0888
      80337F3373337F3337330FFFFFFF088803337FFFFFFF7FFF7333700000000000
      3333777777777777F33333333339399939333333333337773333333333333393
      3333333333333373333333333333933393333333333333333333333333333393
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object GroupBox4: TGroupBox
    Left = 0
    Top = 384
    Width = 577
    Height = 41
    Hint = 'Black'
    Caption = ' Background Color : Black'
    TabOrder = 13
    object Color95Button1: TColor95Button
      Left = 8
      Top = 16
      Width = 17
      Height = 17
      Color = clBlack
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button1Click
    end
    object Color95Button2: TColor95Button
      Left = 32
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Maroon'
      Color = clMaroon
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button2Click
    end
    object Color95Button3: TColor95Button
      Left = 56
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Green'
      Color = clGreen
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button3Click
    end
    object Color95Button4: TColor95Button
      Left = 80
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Olive'
      Color = clOlive
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button4Click
    end
    object Color95Button5: TColor95Button
      Left = 104
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Navy'
      Color = clNavy
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button5Click
    end
    object Color95Button6: TColor95Button
      Left = 128
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Purple'
      Color = clPurple
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button6Click
    end
    object Color95Button7: TColor95Button
      Left = 152
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Teal'
      Color = clTeal
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button7Click
    end
    object Color95Button8: TColor95Button
      Left = 176
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Gray'
      Color = clGray
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button8Click
    end
    object Color95Button9: TColor95Button
      Left = 200
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Silver'
      Color = clSilver
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button9Click
    end
    object Color95Button10: TColor95Button
      Left = 224
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Red'
      Color = clRed
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button10Click
    end
    object Color95Button11: TColor95Button
      Left = 248
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Lime'
      Color = clLime
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button11Click
    end
    object Color95Button12: TColor95Button
      Left = 272
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Yellow'
      Color = clYellow
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button12Click
    end
    object Color95Button13: TColor95Button
      Left = 296
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Blue'
      Color = clBlue
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button13Click
    end
    object Color95Button14: TColor95Button
      Left = 320
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Fuchsia'
      Color = clFuchsia
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button14Click
    end
    object Color95Button15: TColor95Button
      Left = 344
      Top = 16
      Width = 17
      Height = 17
      Hint = 'Aqua'
      Color = clAqua
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button15Click
    end
    object Color95Button16: TColor95Button
      Left = 368
      Top = 16
      Width = 17
      Height = 17
      Hint = 'White'
      Color = clWhite
      Style = bsNew
      Options = [boShowMouseFocus, boDitherPattern, boAutoBlackWhiteText]
      ParentShowHint = False
      ShowHint = True
      OnClick = Color95Button16Click
    end
    object SpeedButton1: TSpeedButton
      Left = 552
      Top = 13
      Width = 17
      Height = 21
      Hint = 'Click here to select the background Image'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object Edit1: TEdit
      Left = 392
      Top = 12
      Width = 153
      Height = 21
      Hint = 'Background Image'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = 'None'
      OnChange = Edit1Change
      OnExit = Edit1Exit
    end
  end
  object ComboBox1: TComboBox
    Left = 304
    Top = 328
    Width = 169
    Height = 21
    ItemHeight = 13
    Items.Strings = (
      '_blank'
      '_parent'
      '_self'
      '_top')
    TabOrder = 14
    Text = '_parent'
    OnChange = ComboBox1Change
  end
  object BitBtn9: TBitBtn
    Left = 456
    Top = 296
    Width = 17
    Height = 25
    Caption = '...'
    TabOrder = 15
    OnClick = BitBtn9Click
  end
  object Edit2: TEdit
    Left = 304
    Top = 296
    Width = 145
    Height = 21
    TabOrder = 16
    OnChange = Edit2Change
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'Text Files (*.TXT)|*.TXT'
    Left = 208
    Top = 24
  end
  object pvlUrl1: TpvlUrl
    Left = 240
    Top = 24
  end
  object OpenDialog1: TOpenDialog
    Filter = 'All valid files|*.jpg;*.gif|JPG files|*.jpg|GIF files|*.gif'
    Title = 'Select Blackground Image...'
    Left = 424
    Top = 160
  end
  object PopupMenu1: TPopupMenu
    Left = 64
    Top = 200
    object Refresh1: TMenuItem
      Caption = 'Refresh'
      OnClick = Refresh1Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 296
    Top = 168
    object Insertmailurl1: TMenuItem
      Caption = 'Insert &Mail URL'
      OnClick = Insertmailurl1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object DeleteItem1: TMenuItem
      Caption = '&Delete the last Item'
      OnClick = DeleteItem1Click
    end
    object DeleteAllItems1: TMenuItem
      Caption = 'Delete &All Items'
      OnClick = DeleteAllItems1Click
    end
  end
end